Checked vice CheckBoxu do Mema

Otázka od: Petr Cafourek

10. 11. 2004 16:38

D6, WinXP Pro, SP2

Zdravim vsechny,
mam takovy drobny problem, potreboval bych do Mema dostat hodnoty 0
nebo 1 z vice CheckBoxu podle toho, jestli je zaskrtly, ci nikoliv.
nevite nekdo jak na to?

S pozdravem,
Petr Cafourek
mailto:petr.cafourek.d7@seznam.cz

Odpovedá: Josef Straka

10. 11. 2004 20:28

Co treba takhle, probrat vsechny komponenty na formulari a kdyz to bude
CheckBox, zapsat jeho jmeno a stav.

procedure TForm1.Button1Click(Sender: TObject);
var A: Integer;
   Jmeno: String;
begin
Memo1.Clear;
for A := 0 to Form1.ComponentCount -1 do
begin
  if Form1.Components[A] is TCheckBox then
   begin
   Jmeno := TCheckBox(Form1.Components[A]).Name;
   if TCheckBox(Form1.Components[A]).Checked then
    Memo1.Lines.Add(Jmeno + ' 1') else Memo1.Lines.Add(Jmeno + ' 0');
   end;
end;
end;

Straka Josef

----- Original Message -----
> D6, WinXP Pro, SP2
>
> Zdravim vsechny,
> mam takovy drobny problem, potreboval bych do Mema dostat hodnoty 0
> nebo 1 z vice CheckBoxu podle toho, jestli je zaskrtly, ci nikoliv.
> nevite nekdo jak na to?
>
> S pozdravem,
> Petr Cafourek
> mailto:petr.cafourek.d7@seznam.cz